/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / map-ynp.elc.z / map-ynp.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 4d 6f 6e 20 | 4d 61 72 20 31 38 20 30 | on Mon |Mar 18 0|
|00000040| 32 3a 31 34 3a 32 34 20 | 31 39 39 36 0a 3b 3b 3b |2:14:24 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 6d 61 70 2d 79 6e | 70 2e 65 6c 0a 3b 3b 3b |p/map-yn|p.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 33 30 2e 39 31 2e | 32 2e 0a 3b 3b 3b 20 62 |9.30.91.|2..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 2e | 32 39 22 29 29 29 0a 20 |ion "19.|29"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 6d 61 70 2d |   (erro|r "`map-|
|000001a0| 79 6e 70 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ynp.el' |was comp|
|000001b0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001c0| 39 2e 32 39 20 6f 72 20 | 6c 61 74 65 72 22 29 29 |9.29 or |later"))|
|000001d0| 0a 0a 0a 23 40 31 39 32 | 32 20 41 73 6b 20 61 20 |...#@192|2 Ask a |
|000001e0| 73 65 72 69 65 73 20 6f | 66 20 62 6f 6f 6c 65 61 |series o|f boolea|
|000001f0| 6e 20 71 75 65 73 74 69 | 6f 6e 73 2e 0a 54 61 6b |n questi|ons..Tak|
|00000200| 65 73 20 61 72 67 73 20 | 50 52 4f 4d 50 54 45 52 |es args |PROMPTER|
|00000210| 20 41 43 54 4f 52 20 4c | 49 53 54 2c 20 61 6e 64 | ACTOR L|IST, and|
|00000220| 20 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 73 20 48 | optiona|l args H|
|00000230| 45 4c 50 20 61 6e 64 20 | 41 43 54 49 4f 4e 2d 41 |ELP and |ACTION-A|
|00000240| 4c 49 53 54 2e 0a 0a 4c | 49 53 54 20 69 73 20 61 |LIST...L|IST is a|
|00000250| 20 6c 69 73 74 20 6f 66 | 20 6f 62 6a 65 63 74 73 | list of| objects|
|00000260| 2c 20 6f 72 20 61 20 66 | 75 6e 63 74 69 6f 6e 20 |, or a f|unction |
|00000270| 6f 66 20 6e 6f 20 61 72 | 67 75 6d 65 6e 74 73 20 |of no ar|guments |
|00000280| 74 6f 20 72 65 74 75 72 | 6e 20 74 68 65 20 6e 65 |to retur|n the ne|
|00000290| 78 74 0a 6f 62 6a 65 63 | 74 20 6f 72 20 6e 69 6c |xt.objec|t or nil|
|000002a0| 2e 0a 0a 49 66 20 50 52 | 4f 4d 50 54 45 52 20 69 |...If PR|OMPTER i|
|000002b0| 73 20 61 20 73 74 72 69 | 6e 67 2c 20 74 68 65 20 |s a stri|ng, the |
|000002c0| 70 72 6f 6d 70 74 20 69 | 73 20 28 66 6f 72 6d 61 |prompt i|s (forma|
|000002d0| 74 20 50 52 4f 4d 50 54 | 45 52 20 4f 42 4a 45 43 |t PROMPT|ER OBJEC|
|000002e0| 54 29 2e 20 20 49 66 20 | 6e 6f 74 0a 61 20 73 74 |T).  If |not.a st|
|000002f0| 72 69 6e 67 2c 20 50 52 | 4f 4d 50 54 45 52 20 69 |ring, PR|OMPTER i|
|00000300| 73 20 61 20 66 75 6e 63 | 74 69 6f 6e 20 6f 66 20 |s a func|tion of |
|00000310| 6f 6e 65 20 61 72 67 20 | 28 61 6e 20 6f 62 6a 65 |one arg |(an obje|
|00000320| 63 74 20 66 72 6f 6d 20 | 4c 49 53 54 29 2c 20 77 |ct from |LIST), w|
|00000330| 68 69 63 68 0a 72 65 74 | 75 72 6e 73 20 61 20 73 |hich.ret|urns a s|
|00000340| 74 72 69 6e 67 20 74 6f | 20 62 65 20 75 73 65 64 |tring to| be used|
|00000350| 20 61 73 20 74 68 65 20 | 70 72 6f 6d 70 74 20 66 | as the |prompt f|
|00000360| 6f 72 20 74 68 61 74 20 | 6f 62 6a 65 63 74 2e 20 |or that |object. |
|00000370| 20 49 66 20 74 68 65 20 | 72 65 74 75 72 6e 0a 76 | If the |return.v|
|00000380| 61 6c 75 65 20 69 73 20 | 6e 6f 74 20 61 20 73 74 |alue is |not a st|
|00000390| 72 69 6e 67 2c 20 69 74 | 20 6d 61 79 20 62 65 20 |ring, it| may be |
|000003a0| 6e 69 6c 20 74 6f 20 69 | 67 6e 6f 72 65 20 74 68 |nil to i|gnore th|
|000003b0| 65 20 6f 62 6a 65 63 74 | 20 6f 72 20 6e 6f 6e 2d |e object| or non-|
|000003c0| 6e 69 6c 20 74 6f 20 61 | 63 74 0a 6f 6e 20 74 68 |nil to a|ct.on th|
|000003d0| 65 20 6f 62 6a 65 63 74 | 20 77 69 74 68 6f 75 74 |e object| without|
|000003e0| 20 61 73 6b 69 6e 67 20 | 74 68 65 20 75 73 65 72 | asking |the user|
|000003f0| 2e 0a 0a 41 43 54 4f 52 | 20 69 73 20 61 20 66 75 |...ACTOR| is a fu|
|00000400| 6e 63 74 69 6f 6e 20 6f | 66 20 6f 6e 65 20 61 72 |nction o|f one ar|
|00000410| 67 20 28 61 6e 20 6f 62 | 6a 65 63 74 20 66 72 6f |g (an ob|ject fro|
|00000420| 6d 20 4c 49 53 54 29 2c | 0a 77 68 69 63 68 20 67 |m LIST),|.which g|
|00000430| 65 74 73 20 63 61 6c 6c | 65 64 20 77 69 74 68 20 |ets call|ed with |
|00000440| 65 61 63 68 20 6f 62 6a | 65 63 74 20 74 68 61 74 |each obj|ect that|
|00000450| 20 74 68 65 20 75 73 65 | 72 20 61 6e 73 77 65 72 | the use|r answer|
|00000460| 73 20 60 79 65 73 27 20 | 66 6f 72 2e 0a 0a 49 66 |s `yes' |for...If|
|00000470| 20 48 45 4c 50 20 69 73 | 20 67 69 76 65 6e 2c 20 | HELP is| given, |
|00000480| 69 74 20 69 73 20 61 20 | 6c 69 73 74 20 28 4f 42 |it is a |list (OB|
|00000490| 4a 45 43 54 20 4f 42 4a | 45 43 54 53 20 41 43 54 |JECT OBJ|ECTS ACT|
|000004a0| 49 4f 4e 29 2c 0a 77 68 | 65 72 65 20 4f 42 4a 45 |ION),.wh|ere OBJE|
|000004b0| 43 54 20 69 73 20 61 20 | 73 74 72 69 6e 67 20 67 |CT is a |string g|
|000004c0| 69 76 69 6e 67 20 74 68 | 65 20 73 69 6e 67 75 6c |iving th|e singul|
|000004d0| 61 72 20 6e 6f 75 6e 20 | 66 6f 72 20 61 6e 20 65 |ar noun |for an e|
|000004e0| 6c 74 20 6f 66 20 4c 49 | 53 54 3b 0a 4f 42 4a 45 |lt of LI|ST;.OBJE|
|000004f0| 43 54 53 20 69 73 20 74 | 68 65 20 70 6c 75 72 61 |CTS is t|he plura|
|00000500| 6c 20 6e 6f 75 6e 20 66 | 6f 72 20 65 6c 74 73 20 |l noun f|or elts |
|00000510| 6f 66 20 4c 49 53 54 2c | 20 61 6e 64 20 41 43 54 |of LIST,| and ACT|
|00000520| 49 4f 4e 20 69 73 20 61 | 20 74 72 61 6e 73 69 74 |ION is a| transit|
|00000530| 69 76 65 0a 76 65 72 62 | 20 64 65 73 63 72 69 62 |ive.verb| describ|
|00000540| 69 6e 67 20 41 43 54 4f | 52 2e 20 20 54 68 65 20 |ing ACTO|R.  The |
|00000550| 64 65 66 61 75 6c 74 20 | 69 73 20 28 22 6f 62 6a |default |is ("obj|
|00000560| 65 63 74 22 20 22 6f 62 | 6a 65 63 74 73 22 20 22 |ect" "ob|jects" "|
|00000570| 61 63 74 20 6f 6e 22 29 | 2e 0a 0a 41 74 20 74 68 |act on")|...At th|
|00000580| 65 20 70 72 6f 6d 70 74 | 73 2c 20 74 68 65 20 75 |e prompt|s, the u|
|00000590| 73 65 72 20 6d 61 79 20 | 65 6e 74 65 72 20 79 2c |ser may |enter y,|
|000005a0| 20 59 2c 20 6f 72 20 53 | 50 43 20 74 6f 20 61 63 | Y, or S|PC to ac|
|000005b0| 74 20 6f 6e 20 74 68 61 | 74 20 6f 62 6a 65 63 74 |t on tha|t object|
|000005c0| 3b 0a 6e 2c 20 4e 2c 20 | 6f 72 20 44 45 4c 20 74 |;.n, N, |or DEL t|
|000005d0| 6f 20 73 6b 69 70 20 74 | 68 61 74 20 6f 62 6a 65 |o skip t|hat obje|
|000005e0| 63 74 3b 20 21 20 74 6f | 20 61 63 74 20 6f 6e 20 |ct; ! to| act on |
|000005f0| 61 6c 6c 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6f 62 |all foll|owing ob|
|00000600| 6a 65 63 74 73 3b 0a 45 | 53 43 20 6f 72 20 71 20 |jects;.E|SC or q |
|00000610| 74 6f 20 65 78 69 74 20 | 28 73 6b 69 70 20 61 6c |to exit |(skip al|
|00000620| 6c 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 6f 62 6a 65 |l follow|ing obje|
|00000630| 63 74 73 29 3b 20 2e 20 | 28 70 65 72 69 6f 64 29 |cts); . |(period)|
|00000640| 20 74 6f 20 61 63 74 20 | 6f 6e 20 74 68 65 0a 63 | to act |on the.c|
|00000650| 75 72 72 65 6e 74 20 6f | 62 6a 65 63 74 20 61 6e |urrent o|bject an|
|00000660| 64 20 74 68 65 6e 20 65 | 78 69 74 3b 20 6f 72 20 |d then e|xit; or |
|00000670| 5c 5b 68 65 6c 70 2d 63 | 6f 6d 6d 61 6e 64 5d 20 |\[help-c|ommand] |
|00000680| 74 6f 20 67 65 74 20 68 | 65 6c 70 2e 0a 0a 49 66 |to get h|elp...If|
|00000690| 20 41 43 54 49 4f 4e 2d | 41 4c 49 53 54 20 69 73 | ACTION-|ALIST is|
|000006a0| 20 67 69 76 65 6e 2c 20 | 69 74 20 69 73 20 61 6e | given, |it is an|
|000006b0| 20 61 6c 69 73 74 20 28 | 4b 45 59 20 46 55 4e 43 | alist (|KEY FUNC|
|000006c0| 54 49 4f 4e 20 48 45 4c | 50 29 20 6f 66 20 65 78 |TION HEL|P) of ex|
|000006d0| 74 72 61 20 6b 65 79 73 | 0a 74 68 61 74 20 77 69 |tra keys|.that wi|
|000006e0| 6c 6c 20 62 65 20 61 63 | 63 65 70 74 65 64 2e 20 |ll be ac|cepted. |
|000006f0| 20 4b 45 59 20 69 73 20 | 61 20 63 68 61 72 61 63 | KEY is |a charac|
|00000700| 74 65 72 3b 20 46 55 4e | 43 54 49 4f 4e 20 69 73 |ter; FUN|CTION is|
|00000710| 20 61 20 66 75 6e 63 74 | 69 6f 6e 20 6f 66 20 6f | a funct|ion of o|
|00000720| 6e 65 0a 61 72 67 20 28 | 61 6e 20 6f 62 6a 65 63 |ne.arg (|an objec|
|00000730| 74 20 66 72 6f 6d 20 4c | 49 53 54 29 3b 20 48 45 |t from L|IST); HE|
|00000740| 4c 50 20 69 73 20 61 20 | 73 74 72 69 6e 67 2e 20 |LP is a |string. |
|00000750| 20 57 68 65 6e 20 74 68 | 65 20 75 73 65 72 20 68 | When th|e user h|
|00000760| 69 74 73 20 4b 45 59 2c | 0a 46 55 4e 43 54 49 4f |its KEY,|.FUNCTIO|
|00000770| 4e 20 69 73 20 63 61 6c | 6c 65 64 2e 20 20 49 66 |N is cal|led.  If|
|00000780| 20 69 74 20 72 65 74 75 | 72 6e 73 20 6e 6f 6e 2d | it retu|rns non-|
|00000790| 6e 69 6c 2c 20 74 68 65 | 20 6f 62 6a 65 63 74 20 |nil, the| object |
|000007a0| 69 73 20 63 6f 6e 73 69 | 64 65 72 65 64 0a 22 61 |is consi|dered."a|
|000007b0| 63 74 65 64 20 75 70 6f | 6e 22 2c 20 61 6e 64 20 |cted upo|n", and |
|000007c0| 74 68 65 20 6e 65 78 74 | 20 6f 62 6a 65 63 74 20 |the next| object |
|000007d0| 66 72 6f 6d 20 4c 49 53 | 54 20 69 73 20 70 72 6f |from LIS|T is pro|
|000007e0| 63 65 73 73 65 64 2e 20 | 20 49 66 20 69 74 20 72 |cessed. | If it r|
|000007f0| 65 74 75 72 6e 73 0a 6e | 69 6c 2c 20 74 68 65 20 |eturns.n|il, the |
|00000800| 70 72 6f 6d 70 74 20 69 | 73 20 72 65 70 65 61 74 |prompt i|s repeat|
|00000810| 65 64 20 66 6f 72 20 74 | 68 65 20 73 61 6d 65 20 |ed for t|he same |
|00000820| 6f 62 6a 65 63 74 2e 0a | 0a 46 69 6e 61 6c 20 6f |object..|.Final o|
|00000830| 70 74 69 6f 6e 61 6c 20 | 61 72 67 75 6d 65 6e 74 |ptional |argument|
|00000840| 20 4e 4f 2d 43 55 52 53 | 4f 52 2d 49 4e 2d 45 43 | NO-CURS|OR-IN-EC|
|00000850| 48 4f 2d 41 52 45 41 20 | 6e 6f 6e 2d 6e 69 6c 20 |HO-AREA |non-nil |
|00000860| 73 61 79 73 20 6e 6f 74 | 20 74 6f 20 73 65 74 0a |says not| to set.|
|00000870| 60 63 75 72 73 6f 72 2d | 69 6e 2d 65 63 68 6f 2d |`cursor-|in-echo-|
|00000880| 61 72 65 61 27 20 77 68 | 69 6c 65 20 70 72 6f 6d |area' wh|ile prom|
|00000890| 70 74 69 6e 67 2e 0a 0a | 54 68 69 73 20 66 75 6e |pting...|This fun|
|000008a0| 63 74 69 6f 6e 20 75 73 | 65 73 20 60 71 75 65 72 |ction us|es `quer|
|000008b0| 79 2d 72 65 70 6c 61 63 | 65 2d 6d 61 70 27 20 74 |y-replac|e-map' t|
|000008c0| 6f 20 64 65 66 69 6e 65 | 20 74 68 65 20 73 74 61 |o define| the sta|
|000008d0| 6e 64 61 72 64 20 72 65 | 73 70 6f 6e 73 65 73 2c |ndard re|sponses,|
|000008e0| 0a 62 75 74 20 6e 6f 74 | 20 61 6c 6c 20 6f 66 20 |.but not| all of |
|000008f0| 74 68 65 20 72 65 73 70 | 6f 6e 73 65 73 20 77 68 |the resp|onses wh|
|00000900| 69 63 68 20 60 71 75 65 | 72 79 2d 72 65 70 6c 61 |ich `que|ry-repla|
|00000910| 63 65 27 20 75 6e 64 65 | 72 73 74 61 6e 64 73 0a |ce' unde|rstands.|
|00000920| 61 72 65 20 6d 65 61 6e | 69 6e 67 66 75 6c 20 68 |are mean|ingful h|
|00000930| 65 72 65 2e 0a 0a 52 65 | 74 75 72 6e 73 20 74 68 |ere...Re|turns th|
|00000940| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 61 63 74 69 |e number| of acti|
|00000950| 6f 6e 73 20 74 61 6b 65 | 6e 2e 1f 0a 28 64 65 66 |ons take|n...(def|
|00000960| 61 6c 69 61 73 20 27 6d | 61 70 2d 79 2d 6f 72 2d |alias 'm|ap-y-or-|
|00000970| 6e 2d 70 20 23 5b 28 70 | 72 6f 6d 70 74 65 72 20 |n-p #[(p|rompter |
|00000980| 61 63 74 6f 72 20 6c 69 | 73 74 20 26 6f 70 74 69 |actor li|st &opti|
|00000990| 6f 6e 61 6c 20 68 65 6c | 70 20 61 63 74 69 6f 6e |onal hel|p action|
|000009a0| 2d 61 6c 69 73 74 20 6e | 6f 2d 63 75 72 73 6f 72 |-alist n|o-cursor|
|000009b0| 2d 69 6e 2d 65 63 68 6f | 2d 61 72 65 61 29 20 22 |-in-echo|-area) "|
|000009c0| c0 19 c2 1b c2 1c c2 1d | c2 1e 06 c2 1e 07 c2 1e |........|........|
|000009d0| 08 c2 1e 09 c2 1e 5c 6e | c2 1e 0b c2 1e 5c 66 0e |......\n|.....\f.|
|000009e0| 0d 83 28 00 0e 0d 39 84 | 44 00 ce 0e 0d 21 84 44 |..(...9.|D....!.D|
|000009f0| 00 cf 0e 0d 21 84 44 00 | 0e 0d 3a 83 48 00 0e 0d |....!.D.|..:.H...|
|00000a00| 40 d0 3d 83 48 00 d1 82 | 49 00 d2 1e 13 0e 14 3c |@.=.H...|I......<|
|00000a10| 83 a3 00 d5 0e 16 40 21 | d5 0e 16 41 40 21 d5 d7 |......@!|...A@!..|
|00000a20| 0e 16 38 21 1e 18 1e 19 | 1e 1a db dc dd 0e 16 83 |..8!....|........|
|00000a30| 7a 00 0e 18 de 0e 1a df | 52 82 7b 00 e0 e1 42 0e |z.......|R.{...B.|
|00000a40| 16 83 8b 00 0e 18 e2 0e | 19 51 82 8c 00 e3 e4 42 |........|.Q.....B|
|00000a50| e5 e6 0e 27 5c 22 42 42 | 42 42 42 15 e8 16 0b 0e |...'\"BB|BBB.....|
|00000a60| 14 14 2b 82 c1 00 0e 27 | 83 b3 00 e9 ea 0e 27 eb |..+....'|......'.|
|00000a70| 23 de 50 82 b4 00 ec 13 | ed ee e5 ef 0e 27 5c 22 |#.P.....|.....'\"|
|00000a80| 0e 30 5c 22 42 15 f1 8e | 0e 32 3b 83 d4 00 d0 f3 |.0\"B...|.2;.....|
|00000a90| f4 0e 32 f5 42 42 45 16 | 32 0e 13 20 83 20 03 0e |..2.BBE.|2.. . ..|
|00000aa0| 32 0e 08 21 89 16 06 3b | 83 0f 03 c2 16 36 0e 0b |2..!...;|.....6..|
|00000ab0| 83 03 01 f7 5c 66 86 f5 | 00 0e 0b 0e 06 0d 42 5c |....\f..|......B\|
|00000ac0| 22 86 fe 00 f8 16 5c 6e | 82 3f 01 0e 39 3f c2 1e |".....\n|.?..9?..|
|00000ad0| 3a 1e 3b fc fd 0e 06 0b | fe ff 0e 40 21 21 24 88 |:.;.....|...@!!$.|
|00000ae0| 81 41 00 20 16 07 fc 81 | 42 00 0e 06 0b fe ff 0e |.A. ....|B.......|
|00000af0| 40 21 21 81 43 00 0e 07 | 21 25 88 2a 81 44 00 0d |@!!.C...|!%.*.D..|
|00000b00| ff 0e 07 21 5c 22 16 5c | 6e 0e 5c 6e 81 45 00 3d |...!\".\|n.\n.E.=|
|00000b10| 83 51 01 81 46 00 89 16 | 13 82 d6 00 0e 5c 6e 81 |.Q..F...|.....\n.|
|00000b20| 47 00 3d 83 66 01 0e 48 | 0e 08 21 88 09 54 11 82 |G.=.f..H|..!..T..|
|00000b30| d4 00 0e 5c 6e 81 49 00 | 3d 84 d4 00 0e 5c 6e e1 |...\n.I.|=....\n.|
|00000b40| 3d 83 88 01 0e 48 0e 08 | 21 88 09 54 11 81 4a 00 |=....H..|!..T..J.|
|00000b50| 89 16 13 82 d6 00 0e 5c | 6e f8 3d 84 98 01 0e 5c |.......\|n.=....\|
|00000b60| 6e 81 4b 00 3d 83 b5 01 | e8 16 36 d0 c2 81 4c 00 |n.K.=...|..6...L.|
|00000b70| d3 81 4d 00 0e 13 44 45 | 81 4d 00 0e 08 44 46 89 |..M...DE|.M...DF.|
|00000b80| 16 13 82 d6 00 0e 5c 6e | e4 3d 83 e7 01 0e 32 0e |......\n|.=....2.|
|00000b90| 08 21 83 cd 01 0e 48 0e | 08 21 88 09 54 11 0e 13 |.!....H.|.!..T...|
|00000ba0| 20 83 d4 00 0e 32 0e 08 | 21 83 cd 01 0e 48 0e 08 | ....2..|!....H..|
|00000bb0| 21 88 09 54 11 82 cd 01 | 0e 5c 6e d6 3d 83 7b 02 |!..T....|.\n.=.{.|
|00000bc0| 81 4e 00 90 81 4f 00 0e | 16 83 00 02 0e 16 40 82 |.N...O..|......@.|
|00000bd0| 03 02 81 50 00 0e 16 83 | 0f 02 0e 16 41 40 82 12 |...P....|....A@..|
|00000be0| 02 81 51 00 0e 16 83 1e | 02 d7 0e 16 38 82 21 02 |..Q.....|....8.!.|
|00000bf0| 81 52 00 1e 18 1e 19 1e | 1a f4 81 53 00 0e 18 0e |.R......|...S....|
|00000c00| 1a 89 0e 18 0e 19 26 06 | e9 81 54 00 0e 27 81 55 |......&.|..T..'.U|
|00000c10| 00 23 0e 27 85 48 02 81 | 55 00 f4 81 56 00 0e 18 |.#.'.H..|U...V...|
|00000c20| 0e 1a 23 52 2b 21 88 8a | 0e 57 71 88 81 58 00 20 |..#R+!..|.Wq..X. |
|00000c30| 29 91 88 d0 c2 81 4c 00 | d3 81 4d 00 0e 13 44 45 |).....L.|..M...DE|
|00000c40| 81 4d 00 0e 08 44 46 89 | 16 13 82 d6 00 81 59 00 |.M...DF.|......Y.|
|00000c50| 0e 5c 6e 21 83 ae 02 0e | 5c 6e c0 48 0e 08 21 83 |.\n!....|\n.H..!.|
|00000c60| 94 02 09 54 11 82 d4 00 | d0 c2 81 4c 00 d3 81 4d |...T....|...L...M|
|00000c70| 00 0e 13 44 45 81 4d 00 | 0e 08 44 46 89 16 13 82 |...DE.M.|..DF....|
|00000c80| d6 00 0e 07 3a 83 dc 02 | 0e 07 40 81 5a 00 3d 83 |....:...|..@.Z.=.|
|00000c90| dc 02 0e 07 16 5c 66 d0 | c2 81 4c 00 d3 81 4d 00 |.....\f.|..L...M.|
|00000ca0| 0e 13 44 45 81 4d 00 0e | 08 44 46 89 16 13 82 d6 |..DE.M..|.DF.....|
|00000cb0| 00 fc 81 5b 00 fe ff 0e | 40 21 21 5c 22 88 81 5c |...[....|@!!\"..\|
|00000cc0| 5c 00 20 88 81 5d 00 81 | 5e 00 21 88 d0 c2 81 4c |\. ..]..|^.!....L|
|00000cd0| 00 d3 81 4d 00 0e 13 44 | 45 81 4d 00 0e 08 44 46 |...M...D|E.M...DF|
|00000ce0| 89 16 13 82 d6 00 0e 06 | 83 d4 00 0e 48 0e 08 21 |........|....H..!|
|00000cf0| 88 09 54 11 82 d4 00 29 | c2 1e 3a fc ec 21 88 29 |..T....)|..:..!.)|
|00000d00| 09 2e 5c 66 87 22 20 5b | 30 20 61 63 74 69 6f 6e |..\f." [|0 action|
|00000d10| 73 20 6e 69 6c 20 75 73 | 65 72 2d 6b 65 79 73 20 |s nil us|er-keys |
|00000d20| 6d 6f 75 73 65 2d 65 76 | 65 6e 74 20 6d 61 70 20 |mouse-ev|ent map |
|00000d30| 70 72 6f 6d 70 74 20 63 | 68 61 72 20 65 6c 74 20 |prompt c|har elt |
|00000d40| 74 61 69 6c 20 64 65 66 | 20 75 73 65 2d 6d 65 6e |tail def| use-men|
|00000d50| 75 73 20 64 65 6c 61 79 | 65 64 2d 73 77 69 74 63 |us delay|ed-switc|
|00000d60| 68 2d 66 72 61 6d 65 20 | 6c 69 73 74 20 73 75 62 |h-frame |list sub|
|00000d70| 72 70 20 62 79 74 65 2d | 63 6f 64 65 2d 66 75 6e |rp byte-|code-fun|
|00000d80| 63 74 69 6f 6e 2d 70 20 | 6c 61 6d 62 64 61 20 23 |ction-p |lambda #|
|00000d90| 5b 6e 69 6c 20 22 08 20 | 89 11 87 22 20 5b 6c 69 |[nil ". |..." [li|
|00000da0| 73 74 20 65 6c 74 5d 20 | 32 5d 20 23 5b 6e 69 6c |st elt] |2] #[nil|
|00000db0| 20 22 08 85 0b 00 08 40 | 11 08 41 10 c2 87 22 20 | ".....@|..A..." |
|00000dc0| 5b 6c 69 73 74 20 65 6c | 74 20 74 5d 20 31 5d 20 |[list el|t t] 1] |
|00000dd0| 6e 65 78 74 20 6c 61 73 | 74 2d 6e 6f 6e 6d 65 6e |next las|t-nonmen|
|00000de0| 75 2d 65 76 65 6e 74 20 | 63 61 70 69 74 61 6c 69 |u-event |capitali|
|00000df0| 7a 65 20 68 65 6c 70 20 | 32 20 61 63 74 69 6f 6e |ze help |2 action|
|00000e00| 20 6f 62 6a 65 63 74 73 | 20 6f 62 6a 65 63 74 20 | objects| object |
|00000e10| 28 22 59 65 73 22 20 2e | 20 61 63 74 29 20 28 22 |("Yes" .| act) ("|
|00000e20| 4e 6f 22 20 2e 20 73 6b | 69 70 29 20 28 22 51 75 |No" . sk|ip) ("Qu|
|00000e30| 69 74 22 20 2e 20 65 78 | 69 74 29 20 22 20 22 20 |it" . ex|it) " " |
|00000e40| 22 20 41 6e 64 20 51 75 | 69 74 22 20 22 44 6f 20 |" And Qu|it" "Do |
|00000e50| 69 74 20 61 6e 64 20 51 | 75 69 74 22 20 61 63 74 |it and Q|uit" act|
|00000e60| 2d 61 6e 64 2d 65 78 69 | 74 20 22 20 41 6c 6c 20 |-and-exi|t " All |
|00000e70| 22 20 22 44 6f 20 41 6c | 6c 22 20 61 75 74 6f 6d |" "Do Al|l" autom|
|00000e80| 61 74 69 63 20 6d 61 70 | 63 61 72 20 23 5b 28 65 |atic map|car #[(e|
|00000e90| 6c 74 29 20 22 c0 c1 5c | 6e 38 21 c3 5c 6e 41 40 |lt) "..\|n8!.\nA@|
|00000ea0| 21 42 87 22 20 5b 63 61 | 70 69 74 61 6c 69 7a 65 |!B." [ca|pitalize|
|00000eb0| 20 32 20 65 6c 74 20 76 | 65 63 74 6f 72 5d 20 33 | 2 elt v|ector] 3|
|00000ec0| 5d 20 61 63 74 69 6f 6e | 2d 61 6c 69 73 74 20 74 |] action|-alist t|
|00000ed0| 20 6d 61 70 63 6f 6e 63 | 61 74 20 23 5b 28 65 6c | mapconc|at #[(el|
|00000ee0| 74 29 20 22 c0 c1 5c 6e | 40 21 21 87 22 20 5b 6b |t) "..\n|@!!." [k|
|00000ef0| 65 79 2d 64 65 73 63 72 | 69 70 74 69 6f 6e 20 63 |ey-descr|iption c|
|00000f00| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 65 6c |har-to-s|tring el|
|00000f10| 74 5d 20 33 5d 20 22 2c | 20 22 20 22 22 20 6b 65 |t] 3] ",| " "" ke|
|00000f20| 79 6d 61 70 20 61 70 70 | 65 6e 64 20 23 5b 28 65 |ymap app|end #[(e|
|00000f30| 6c 74 29 20 22 08 40 c1 | 08 41 40 21 42 87 22 20 |lt) ".@.|.A@!B." |
|00000f40| 5b 65 6c 74 20 76 65 63 | 74 6f 72 5d 20 33 5d 20 |[elt vec|tor] 3] |
|00000f50| 71 75 65 72 79 2d 72 65 | 70 6c 61 63 65 2d 6d 61 |query-re|place-ma|
|00000f60| 70 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |p ((byte|-code ".|
|00000f70| 83 08 00 08 09 42 11 c2 | 87 22 20 5b 64 65 6c 61 |.....B..|." [dela|
|00000f80| 79 65 64 2d 73 77 69 74 | 63 68 2d 66 72 61 6d 65 |yed-swit|ch-frame|
|00000f90| 20 75 6e 72 65 61 64 2d | 63 6f 6d 6d 61 6e 64 2d | unread-|command-|
|00000fa0| 65 76 65 6e 74 73 20 6e | 69 6c 5d 20 32 29 29 20 |events n|il] 2)) |
|00000fb0| 70 72 6f 6d 70 74 65 72 | 20 28 6f 62 6a 65 63 74 |prompter| (object|
|00000fc0| 29 20 66 6f 72 6d 61 74 | 20 28 6f 62 6a 65 63 74 |) format| (object|
|00000fd0| 29 20 71 75 69 74 2d 66 | 6c 61 67 20 78 2d 70 6f |) quit-f|lag x-po|
|00000fe0| 70 75 70 2d 64 69 61 6c | 6f 67 20 71 75 69 74 20 |pup-dial|og quit |
|00000ff0| 6e 6f 2d 63 75 72 73 6f | 72 2d 69 6e 2d 65 63 68 |no-curso|r-in-ech|
|00001000| 6f 2d 61 72 65 61 20 6d | 65 73 73 61 67 65 2d 6c |o-area m|essage-l|
|00001010| 6f 67 2d 6d 61 78 20 63 | 75 72 73 6f 72 2d 69 6e |og-max c|ursor-in|
|00001020| 2d 65 63 68 6f 2d 61 72 | 65 61 20 6d 65 73 73 61 |-echo-ar|ea messa|
|00001030| 67 65 20 22 25 73 28 79 | 2c 20 6e 2c 20 21 2c 20 |ge "%s(y|, n, !, |
|00001040| 2e 2c 20 71 2c 20 25 73 | 6f 72 20 25 73 29 20 22 |., q, %s|or %s) "|
|00001050| 20 6b 65 79 2d 64 65 73 | 63 72 69 70 74 69 6f 6e | key-des|cription|
|00001060| 20 76 65 63 74 6f 72 20 | 68 65 6c 70 2d 63 68 61 | vector |help-cha|
|00001070| 72 20 72 65 61 64 2d 65 | 76 65 6e 74 20 22 25 73 |r read-e|vent "%s|
|00001080| 28 79 2c 20 6e 2c 20 21 | 2c 20 2e 2c 20 71 2c 20 |(y, n, !|, ., q, |
|00001090| 25 73 6f 72 20 25 73 29 | 20 25 73 22 20 73 69 6e |%sor %s)| %s" sin|
|000010a0| 67 6c 65 2d 6b 65 79 2d | 64 65 73 63 72 69 70 74 |gle-key-|descript|
|000010b0| 69 6f 6e 20 6c 6f 6f 6b | 75 70 2d 6b 65 79 20 65 |ion look|up-key e|
|000010c0| 78 69 74 20 23 5b 6e 69 | 6c 20 22 c0 87 22 20 5b |xit #[ni|l ".." [|
|000010d0| 6e 69 6c 5d 20 31 5d 20 | 61 63 74 20 61 63 74 6f |nil] 1] |act acto|
|000010e0| 72 20 73 6b 69 70 20 23 | 5b 6e 69 6c 20 22 c0 87 |r skip #|[nil "..|
|000010f0| 22 20 5b 6e 69 6c 5d 20 | 31 5d 20 65 78 69 74 2d |" [nil] |1] exit-|
|00001100| 70 72 65 66 69 78 20 73 | 65 74 71 20 71 75 6f 74 |prefix s|etq quot|
|00001110| 65 20 22 2a 48 65 6c 70 | 2a 22 20 70 72 69 6e 63 |e "*Help|*" princ|
|00001120| 20 22 6f 62 6a 65 63 74 | 22 20 22 6f 62 6a 65 63 | "object|" "objec|
|00001130| 74 73 22 20 22 61 63 74 | 20 6f 6e 22 20 22 54 79 |ts" "act| on" "Ty|
|00001140| 70 65 20 53 50 43 20 6f | 72 20 60 79 27 20 74 6f |pe SPC o|r `y' to|
|00001150| 20 25 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | %s the |current |
|00001160| 25 73 3b 5c 6e 44 45 4c | 20 6f 72 20 60 6e 27 20 |%s;\nDEL| or `n' |
|00001170| 74 6f 20 73 6b 69 70 20 | 74 68 65 20 63 75 72 72 |to skip |the curr|
|00001180| 65 6e 74 20 25 73 3b 5c | 6e 21 20 74 6f 20 25 73 |ent %s;\|n! to %s|
|00001190| 20 61 6c 6c 20 72 65 6d | 61 69 6e 69 6e 67 20 25 | all rem|aining %|
|000011a0| 73 3b 5c 6e 45 53 43 20 | 6f 72 20 60 71 27 20 74 |s;\nESC |or `q' t|
|000011b0| 6f 20 65 78 69 74 3b 5c | 6e 22 20 23 5b 28 65 6c |o exit;\|n" #[(el|
|000011c0| 74 29 20 22 c0 c1 5c 6e | 40 c3 5c 6e 38 23 87 22 |t) "..\n|@.\n8#."|
|000011d0| 20 5b 66 6f 72 6d 61 74 | 20 22 25 63 20 74 6f 20 | [format| "%c to |
|000011e0| 25 73 22 20 65 6c 74 20 | 32 5d 20 35 5d 20 22 3b |%s" elt |2] 5] ";|
|000011f0| 5c 6e 22 20 22 6f 72 20 | 2e 20 28 70 65 72 69 6f |\n" "or |. (perio|
|00001200| 64 29 20 74 6f 20 25 73 | 20 74 68 65 20 63 75 72 |d) to %s| the cur|
|00001210| 72 65 6e 74 20 25 73 20 | 61 6e 64 20 65 78 69 74 |rent %s |and exit|
|00001220| 2e 22 20 73 74 61 6e 64 | 61 72 64 2d 6f 75 74 70 |." stand|ard-outp|
|00001230| 75 74 20 68 65 6c 70 2d | 6d 6f 64 65 20 76 65 63 |ut help-|mode vec|
|00001240| 74 6f 72 70 20 73 77 69 | 74 63 68 2d 66 72 61 6d |torp swi|tch-fram|
|00001250| 65 20 22 54 79 70 65 20 | 25 73 20 66 6f 72 20 68 |e "Type |%s for h|
|00001260| 65 6c 70 2e 22 20 62 65 | 65 70 20 73 69 74 2d 66 |elp." be|ep sit-f|
|00001270| 6f 72 20 31 5d 20 31 30 | 20 28 23 24 20 2e 20 34 |or 1] 10| (#$ . 4|
|00001280| 37 34 29 5d 29 0a       |                         |74)]).  |        |
+--------+-------------------------+-------------------------+--------+--------+